home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 41
/
Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso
/
Aminet
/
util
/
rexx
/
rxasl.lha
/
rxasl
/
install
< prev
next >
Wrap
Text File
|
2000-11-07
|
3KB
|
119 lines
; $VER: RxASL_Install 2.0 (1.11.2000)
(procedure P_SetMessages
(set #WhatInstallPromptMsg "What do you want to install?")
(set #WhatInstallHelpMsg "Choose what you want to install:\n rxasl.library - RxASL core\n Documentation - RxASL documentation in AmigaGuide format\n Examples - RxASL ARexx macros")
(set #WhatInstallLibrariesMsg "Library")
(set #WhatInstallDocumentationMsg "Documentation")
(set #WhatInstallExamplesMsg "Examples")
(set #AskLibsDirPromptMsg "Select the directory where you want to install rxasl.library")
(set #AskLibsDirHelpMsg "In the directory you supply here, there will be installed rxasl.library . This drawer MUST BE in your LIBS: assignment")
(set #AskGuideDirPromptMsg "Select the directory where you want to install RxASL documentation in AmigaGuide format")
(set #AskGuideDirHelpMsg "In the directory you supply here, there will be installed the RxASL documentation in AmigaGuide format")
(set #AskExamplesDirPromptMsg "Select the directory where you want to install RxASL examples macro")
(set #AskExamplesDirHelpMsg "In the directory you supply here, there will be installed some RxASL examples ARexx macros")
(set #CopyingLibsMsg "Copying or Updating library")
(set #CopyingGuideMsg "Copying documentation")
(set #CopyingExamplesMsg "Copying examples")
)
(procedure P_ChooseWhatIstall
(set #WhatInstall
(askoptions
(prompt #WhatInstallPromptMsg
(help #WhatInstallHelpMsg)
(choices #WhatInstallLibrariesMsg #WhatInstallDocumentationMsg #WhatInstallExamplesMsg)
)
)
)
)
(procedure P_AskLibsDir
(set #libsDir
(askdir
(prompt #AskLibsDirPromptMsg)
(help #AskLibsDirHelpMsg)
(default "LIBS:")
)
)
)
(procedure P_AskGuideDir
(set #guideDir
(askdir
(prompt #AskGuideDirPromptMsg)
(help #AskGuideDirHelpMsg)
(default "Ram Disk:")
)
)
)
(procedure P_AskExamplesDir
(set #examplesDir
(askdir
(prompt #AskExamplesDirPromptMsg)
(help #AskExamplesDirHelpMsg)
(default "Ram Disk:")
)
)
)
(procedure P_CopyLibs
(working #CopyingLibsMsg)
(set #localLibsDir (tackon #source-dir "LIBS/"))
(foreach #localLibsDir "#?"
(copylib
(source (tackon #localLibsDir @each-name))
(dest #libsDir)
)
)
)
(procedure P_CopyDocs
(working #CopyingGuideMsg)
(copyfiles
(source (tackon #source-dir "DOCS/english/"))
(dest #guideDir)
(optional force askuser)
(all)
)
)
(procedure P_CopyExamples
(working #CopyingExamplesMsg)
(copyfiles
(source (tackon #source-dir "EXAMPLES/"))
(dest #examplesDir)
(optional force askuser)
(all)
)
)
(set @default-dest "")
(set #source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon)) (expandpath @icon)))
(P_SetMessages)
(complete 0)
(P_ChooseWhatIstall)
(if (= 0 #WhatInstall) (exit))
(if (BITAND #WhatInstall 1) (P_AskLibsDir))
(if (BITAND #WhatInstall 2) (P_AskGuideDir))
(if (BITAND #WhatInstall 4) (P_AskExamplesDir))
(if (BITAND #WhatInstall 1) (P_CopyLibs))
(complete 30)
(if (BITAND #WhatInstall 2) (P_CopyDocs))
(complete 80)
(if (BITAND #WhatInstall 4) (P_CopyExamples))
(complete 100)